(vector? (make-vector 0))
=> #t
(vector-length (make-vector 12))
=> 12
(vector? (cons 1 2))
=> #f
(vector? 1287)
=> #f
(vector? ())
=> #f
(vector? #t)
=> #f
(vector? #f)
=> #f
(pair? (make-vector 12))
=> #f
(null? (make-vector 12))
=> #f
(boolean? (make-vector 12))
=> #f
(make-vector 0)
=> #()
(let ([v (make-vector 2)]) (vector-set! v 0 #t) (vector-set! v 1 #f) v)
=> #(#t #f)
(let ([v (make-vector 2)]) (vector-set! v 0 v) (vector-set! v 1 v) (eq? (vector-ref v 0) (vector-ref v 1)))
=> #t
(let ([v (make-vector 1)] [y (cons 1 2)]) (vector-set! v 0 y) (cons y (eq? y (vector-ref v 0))))
=> ((1 . 2) . #t)
(let ([v0 (make-vector 2)]) (let ([v1 (make-vector 2)]) (vector-set! v0 0 100) (vector-set! v0 1 200) (vector-set! v1 0 300) (vector-set! v1 1 400) (cons v0 v1)))
=> (#(100 200) . #(300 400))
(let ([v0 (make-vector 3)]) (let ([v1 (make-vector 3)]) (vector-set! v0 0 100) (vector-set! v0 1 200) (vector-set! v0 2 150) (vector-set! v1 0 300) (vector-set! v1 1 400) (vector-set! v1 2 350) (cons v0 v1)))
=> (#(100 200 150) . #(300 400 350))
(let ([n 2]) (let ([v0 (make-vector n)]) (let ([v1 (make-vector n)]) (vector-set! v0 0 100) (vector-set! v0 1 200) (vector-set! v1 0 300) (vector-set! v1 1 400) (cons v0 v1))))
=> (#(100 200) . #(300 400))
(let ([n 3]) (let ([v0 (make-vector n)]) (let ([v1 (make-vector (vector-length v0))]) (vector-set! v0 (fx- (vector-length v0) 3) 100) (vector-set! v0 (fx- (vector-length v1) 2) 200) (vector-set! v0 (fx- (vector-length v0) 1) 150) (vector-set! v1 (fx- (vector-length v1) 3) 300) (vector-set! v1 (fx- (vector-length v0) 2) 400) (vector-set! v1 (fx- (vector-length v1) 1) 350) (cons v0 v1))))
=> (#(100 200 150) . #(300 400 350))
(let ([n 1]) (vector-set! (make-vector n) (fxsub1 n) (fx* n n)) n)
=> 1
(let ([n 1]) (let ([v (make-vector 1)]) (vector-set! v (fxsub1 n) n) (vector-ref v (fxsub1 n))))
=> 1
(let ([v0 (make-vector 1)]) (vector-set! v0 0 1) (let ([v1 (make-vector 1)]) (vector-set! v1 0 13) (vector-set! (if (vector? v0) v0 v1) (fxsub1 (vector-length (if (vector? v0) v0 v1))) (fxadd1 (vector-ref (if (vector? v0) v0 v1) (fxsub1 (vector-length (if (vector? v0) v0 v1)))))) (cons v0 v1)))
=> (#(2) . #(13))